Freelog 50/Freelog050.iso/DossierLogitheque/Bureautique/Mira/Mira_setup.exe/{app}/Mira.exe/0/RCDATA/TFORMPRINT/TFORMPRINT.txt

Text File | 2003-09-02 | 18KB | 775 lines

object FormPrint: TFormPrint
  Left = 271
  Top = 177
  BorderStyle = bsDialog
  Caption = 'Impression'
  ClientHeight = 417
  ClientWidth = 542
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object SC_Line5: TSC_Line
    Left = 0
    Top = 383
    Width = 542
    Height = 34
    BorderShape = bsTopLine
    Align = alBottom
  end
  object ListPrint: TListBox
    Left = 11
    Top = 11
    Width = 104
    Height = 362
    Cursor = crHandPoint
    Style = lbOwnerDrawFixed
    Color = clWhite
    Ctl3D = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 16
    Items.Strings = (
      'Listing'
      'Enveloppes'
      'Etiquettes')
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
    OnClick = ListPrintClick
  end
  object PageControl1: TPageControl
    Left = 117
    Top = 9
    Width = 421
    Height = 370
    ActivePage = Tab1
    Style = tsFlatButtons
    TabOrder = 1
    object Tab1: TTabSheet
      Caption = 'Listing'
      TabVisible = False
      object LabelName: TLabel
        Left = 24
        Top = 0
        Width = 3
        Height = 14
      end
      object RadioPrint: TRadioGroup
        Left = 0
        Top = 18
        Width = 409
        Height = 274
        ItemIndex = 0
        Items.Strings = (
          'Imprimer la fiche en cours compl'#232'te'
          'Imprimer la fiche en cours domicile'
          'Imprimer la fiche en cours bureau'
          'Imprimer toutes les fiches compl'#232'tes'
          'Imprimer toutes les fiches domicile'
          'Imprimer toutes les fiches bureau'
          'Imprimer les n'#176' de t'#233'l'#233'phones uniquement')
        TabOrder = 1
        OnClick = RadioPrintClick
      end
      object CheckMemo: TCheckBox
        Left = 8
        Top = 299
        Width = 108
        Height = 17
        Cursor = crHandPoint
        Caption = 'Imprimer le m'#233'mo'
        TabOrder = 2
      end
      object UpDownList: TUpDown
        Left = 0
        Top = 0
        Width = 19
        Height = 16
        Cursor = crHandPoint
        Hint = 'Changer de fiche en cours'
        Min = 0
        ParentShowHint = False
        Position = 0
        ShowHint = True
        TabOrder = 0
        Thousands = False
        Wrap = True
        OnClick = UpDownListClick
      end
      object CheckSexe: TCheckBox
        Left = 8
        Top = 338
        Width = 104
        Height = 17
        Caption = 'Imprimer le sexe'
        Checked = True
        State = cbChecked
        TabOrder = 3
      end
      object CheckPhoto: TCheckBox
        Left = 8
        Top = 318
        Width = 107
        Height = 17
        Caption = 'Imprimer la photo'
        TabOrder = 4
      end
    end
    object Tab2: TTabSheet
      Caption = 'Enveloppe'
      ImageIndex = 1
      TabVisible = False
      object Label1: TLabel
        Left = 0
        Top = 6
        Width = 27
        Height = 14
        Caption = 'Noms'
        Transparent = True
      end
      object Label2: TLabel
        Left = 273
        Top = 0
        Width = 3
        Height = 14
        Transparent = True
      end
      object Label12: TLabel
        Left = 276
        Top = 307
        Width = 66
        Height = 14
        Caption = 'Taille du texte'
      end
      object PaintBoxEXP: TPaintBox
        Left = 279
        Top = 252
        Width = 130
        Height = 49
        OnPaint = PaintBoxEXPPaint
      end
      object SpeedBTous: TSpeedButton
        Left = 66
        Top = 1
        Width = 50
        Height = 18
        Cursor = crHandPoint
        Hint = 'Tout s'#233'lectionner'
        Caption = 'Tous'
        ParentShowHint = False
        ShowHint = True
        Transparent = False
        OnClick = SpeedBTousClick
      end
      object SpeedBAucun: TSpeedButton
        Left = 116
        Top = 1
        Width = 50
        Height = 18
        Cursor = crHandPoint
        Hint = 'D'#233's'#233'lectionner tout'
        Caption = 'Aucun'
        ParentShowHint = False
        ShowHint = True
        Transparent = False
        OnClick = SpeedBAucunClick
      end
      object SpeedBOpen: TSpeedButton
        Left = 166
        Top = 1
        Width = 50
        Height = 18
        Cursor = crHandPoint
        Hint = 'Ouvrir une s'#233'lection existante'
        Caption = 'Ouvrir'
        ParentShowHint = False
        ShowHint = True
        Transparent = False
        OnClick = SpeedBOpenClick
      end
      object SpeedBSave: TSpeedButton
        Left = 216
        Top = 1
        Width = 50
        Height = 18
        Cursor = crHandPoint
        Hint = 'Enregistrer la s'#233'lection'
        Caption = 'Sauver'
        ParentShowHint = False
        ShowHint = True
        Transparent = False
        OnClick = SpeedBSaveClick
      end
      object Label5: TLabel
        Left = 0
        Top = 342
        Width = 91
        Height = 14
        Caption = 'Choisir l'#39'exp'#233'diteur'
      end
      object RadioEnveloppe: TRadioGroup
        Left = 273
        Top = 15
        Width = 139
        Height = 67
        Caption = ' Type d'#39'adresse '
        ItemIndex = 0
        Items.Strings = (
          'Domicile'
          'Bureau')
        TabOrder = 1
      end
      object CheckPays: TCheckBox
        Left = 273
        Top = 87
        Width = 136
        Height = 17
        Cursor = crHandPoint
        Caption = 'Imprimer le nom du pays'
        TabOrder = 2
      end
      object GroupBox1: TGroupBox
        Left = 273
        Top = 105
        Width = 139
        Height = 125
        Caption = ' Options '
        TabOrder = 3
        object Label3: TLabel
          Left = 69
          Top = 33
          Width = 65
          Height = 14
          Caption = 'Gauche (mm)'
        end
        object Label4: TLabel
          Left = 69
          Top = 54
          Width = 49
          Height = 14
          Caption = 'Haut (mm)'
        end
        object Label8: TLabel
          Left = 9
          Top = 15
          Width = 87
          Height = 14
          Caption = 'D'#233'calage du texte'
        end
        object Label9: TLabel
          Left = 9
          Top = 78
          Width = 66
          Height = 14
          Caption = 'Taille du texte'
        end
        object EditX: TEdit
          Left = 18
          Top = 30
          Width = 31
          Height = 22
          Ctl3D = True
          MaxLength = 3
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 0
          Text = '0'
        end
        object EditY: TEdit
          Left = 18
          Top = 53
          Width = 31
          Height = 22
          Ctl3D = True
          MaxLength = 3
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 1
          Text = '0'
        end
        object UpDownX: TUpDown
          Left = 49
          Top = 30
          Width = 15
          Height = 22
          Cursor = crHandPoint
          Associate = EditX
          Min = -100
          Position = 0
          TabOrder = 2
          Wrap = False
        end
        object UpDownY: TUpDown
          Left = 49
          Top = 53
          Width = 15
          Height = 22
          Cursor = crHandPoint
          Associate = EditY
          Min = -100
          Position = 0
          TabOrder = 3
          Wrap = False
        end
        object EditPolice: TEdit
          Left = 18
          Top = 93
          Width = 31
          Height = 22
          Ctl3D = True
          MaxLength = 2
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 4
          Text = '12'
        end
        object UpDownPolice: TUpDown
          Left = 49
          Top = 93
          Width = 15
          Height = 22
          Cursor = crHandPoint
          Associate = EditPolice
          Min = 8
          Max = 36
          Position = 12
          TabOrder = 5
          Wrap = False
        end
      end
      object CheckExpediteur: TCheckBox
        Left = 0
        Top = 233
        Width = 172
        Height = 17
        Cursor = crHandPoint
        Caption = 'Inclure l'#39'adresse de l'#39'exp'#233'diteur'
        TabOrder = 4
        OnClick = PaintBoxEXPPaint
      end
      object MemoExpediteur: TMemo
        Left = 0
        Top = 252
        Width = 268
        Height = 84
        Ctl3D = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 6
        WordWrap = False
      end
      object EditEXP: TEdit
        Left = 345
        Top = 304
        Width = 31
        Height = 22
        Ctl3D = True
        MaxLength = 2
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 7
        Text = '10'
      end
      object UpDownPoliceExp: TUpDown
        Left = 376
        Top = 304
        Width = 15
        Height = 22
        Cursor = crHandPoint
        Associate = EditEXP
        Min = 6
        Max = 36
        Position = 10
        TabOrder = 8
        Wrap = False
        OnClick = UpDownPoliceExpClick
      end
      object ListViewEnv: TListView
        Left = 0
        Top = 21
        Width = 268
        Height = 209
        Cursor = crHandPoint
        Columns = <
          item
            Caption = 'Nom'
            Width = 140
          end
          item
            Caption = 'Pr'#233'nom'
            Width = 105
          end>
        HideSelection = False
        MultiSelect = True
        ReadOnly = True
        RowSelect = True
        ShowColumnHeaders = False
        SmallImages = MainFormMira.ImageList1
        TabOrder = 0
        ViewStyle = vsReport
      end
      object CheckInvertName: TCheckBox
        Left = 177
        Top = 233
        Width = 172
        Height = 17
        Cursor = crHandPoint
        Caption = 'Inverser le nom et le pr'#233'nom'
        Checked = True
        State = cbChecked
        TabOrder = 5
        OnClick = CheckPaysEtClick
      end
      object ComboExp: TComboBox
        Left = 96
        Top = 338
        Width = 172
        Height = 22
        Cursor = crHandPoint
        Style = csDropDownList
        ItemHeight = 14
        TabOrder = 9
        OnClick = ComboExpClick
      end
    end
    object Tab3: TTabSheet
      Caption = 'Etiquettes'
      ImageIndex = 2
      TabVisible = False
      object LabelNameEt: TLabel
        Left = 24
        Top = 0
        Width = 3
        Height = 14
      end
      object Label10: TLabel
        Left = 0
        Top = 147
        Width = 136
        Height = 14
        Caption = 'Format d'#39#233'tiquettes en sortie'
      end
      object Label11: TLabel
        Left = 291
        Top = 165
        Width = 66
        Height = 14
        Caption = 'Taille du texte'
      end
      object UpDownEt: TUpDown
        Left = 0
        Top = 0
        Width = 19
        Height = 16
        Cursor = crHandPoint
        Hint = 'Changer de fiche en cours'
        Min = 0
        ParentShowHint = False
        Position = 0
        ShowHint = True
        TabOrder = 0
        Thousands = False
        Wrap = True
        OnClick = UpDownEtClick
      end
      object MemoEt: TMemo
        Left = 0
        Top = 19
        Width = 409
        Height = 123
        Ctl3D = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 1
        WordWrap = False
      end
      object RadioEt: TRadioGroup
        Left = 0
        Top = 189
        Width = 166
        Height = 91
        Caption = ' Type d'#39'adresse '
        ItemIndex = 0
        Items.Strings = (
          'Domicile'
          'Bureau')
        TabOrder = 3
        OnClick = RadioEtClick
      end
      object CheckPaysEt: TCheckBox
        Left = 0
        Top = 286
        Width = 138
        Height = 17
        Cursor = crHandPoint
        Caption = 'Imprimer le nom du pays'
        TabOrder = 7
        OnClick = CheckPaysEtClick
      end
      object EditPoliceET: TEdit
        Left = 363
        Top = 162
        Width = 31
        Height = 22
        Ctl3D = True
        MaxLength = 2
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 4
        Text = '10'
      end
      object UpDownPoliceET: TUpDown
        Left = 394
        Top = 162
        Width = 15
        Height = 22
        Cursor = crHandPoint
        Associate = EditPoliceET
        Min = 6
        Max = 36
        Position = 10
        TabOrder = 5
        Wrap = False
        OnClick = UpDownPoliceETClick
      end
      object GroupBox3: TGroupBox
        Left = 171
        Top = 189
        Width = 238
        Height = 136
        Caption = ' Imprimer '
        TabOrder = 6
        object Label6: TLabel
          Left = 30
          Top = 82
          Width = 92
          Height = 14
          Caption = 'Ligne .....................'
        end
        object Label7: TLabel
          Left = 30
          Top = 62
          Width = 93
          Height = 14
          Caption = 'Colonne .................'
        end
        object RadioPage: TRadioButton
          Left = 11
          Top = 18
          Width = 151
          Height = 17
          Caption = 'Page d'#39#233'tiquettes identiques'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = RadioPageClick
        end
        object RadioUn: TRadioButton
          Left = 11
          Top = 46
          Width = 88
          Height = 17
          Caption = 'Une '#233'tiquette'
          TabOrder = 1
          OnClick = RadioUnClick
        end
        object EditColoneET: TEdit
          Left = 126
          Top = 57
          Width = 22
          Height = 22
          Ctl3D = True
          Enabled = False
          MaxLength = 2
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 2
          Text = '1'
        end
        object UpDownColoneET: TUpDown
          Left = 148
          Top = 57
          Width = 15
          Height = 22
          Cursor = crHandPoint
          Associate = EditColoneET
          Enabled = False
          Min = 1
          Max = 50
          Position = 1
          TabOrder = 3
          Wrap = False
        end
        object EditLigneET: TEdit
          Left = 126
          Top = 78
          Width = 22
          Height = 22
          Ctl3D = True
          Enabled = False
          MaxLength = 2
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 4
          Text = '1'
        end
        object UpDownLigneET: TUpDown
          Left = 148
          Top = 78
          Width = 15
          Height = 22
          Cursor = crHandPoint
          Associate = EditLigneET
          Enabled = False
          Min = 1
          Max = 50
          Position = 1
          TabOrder = 5
          Wrap = False
        end
        object RadioPubli: TRadioButton
          Left = 11
          Top = 110
          Width = 88
          Height = 17
          Caption = 'Publipostage'
          TabOrder = 6
          OnClick = RadioPubliClick
        end
      end
      object ComboType: TComboBox
        Left = 0
        Top = 162
        Width = 286
        Height = 22
        Style = csDropDownList
        ItemHeight = 14
        Sorted = True
        TabOrder = 2
        OnClick = ComboTypeClick
      end
      object CustomButtonNewET: TButton
        Left = 0
        Top = 335
        Width = 99
        Height = 22
        Hint = '|Cr'#233'er une nouvelle '#233'tiquette'
        Caption = '&Nouvelle '#233'tiquette'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
        OnClick = CustomButtonNewETClick
      end
      object CustomButtonModiET: TButton
        Left = 102
        Top = 335
        Width = 99
        Height = 22
        Hint = '|Modifier cette '#233'tiquette'
        Caption = '&Modifier l'#39#233'tiquette'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
        OnClick = CustomButtonModiETClick
      end
      object CustomButtonVoirET: TButton
        Left = 204
        Top = 335
        Width = 99
        Height = 22
        Hint = '|Aper'#231'u de l'#39#233'tiquette'
        Caption = '&Aper'#231'u'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 10
        OnClick = CustomButtonVoirETClick
      end
      object CustomButtonSuppET: TButton
        Left = 306
        Top = 335
        Width = 103
        Height = 22
        Hint = '|Supprimer cette '#233'tiquette'
        Caption = '&Supprimer l'#39#233'tiquette'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 11
        OnClick = CustomButtonSuppETClick
      end
    end
  end
  object ButtonConfigure: TButton
    Left = 113
    Top = 389
    Width = 75
    Height = 22
    Hint = '|Configurer l'#39'imprimante'
    Caption = '&Configurer'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = CustomConfigureClick
  end
  object ButtonPrint: TButton
    Left = 197
    Top = 389
    Width = 75
    Height = 22
    Hint = '|Lancer l'#39'impression'
    Caption = '&Imprimer'
    Default = True
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = ButtonPrintClick
  end
  object ButtonClose: TButton
    Left = 365
    Top = 389
    Width = 75
    Height = 22
    Hint = '|Fermer la fiche'
    Cancel = True
    Caption = '&Fermer'
    ModalResult = 2
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object ButtonHelp: TButton
    Left = 281
    Top = 389
    Width = 75
    Height = 22
    Caption = 'Ai&de'
    TabOrder = 5
    OnClick = ButtonHelpClick
  end
end